<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
<title>PerlScript sample: Hello, world</title>
</head>

<!-- 
	ActiveState PerlScript sample 
	PerlScript:  The coolest way to program custom web solutions. 
-->

<TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0>
<TR VALIGN=TOP ><TD>
<A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=2></A><P>
</TD></TR></TABLE>
<HR>

 
<BODY BGCOLOR=#FFFFFF topmargin="8">
<!-- 
	Microsoft PerlScript sample 
-->

<font size="5"></font><font size="5">HTML says: Hello, world!<br>
<script language="VBScript"><!--
document.write "VBScript says: Hello, world!"
--></script><br>
<script language="PerlScript">
$window->document->write("PerlScript says: Hello, world!");
</script></font><br>

<form method="POST" name="MyForm">
    <p><input type="text" size="32" name="Text1"
    value="Text1 says: Hello, world!"></p>
    <p><font size="5"><input type="button" name="VBSBtnHello"
    value="VBScript"><script language="VBScript"><!--
Sub VBSBtnHello_OnClick
	MyForm.Text1.value =  "VBScript says: Hello, world!"
End Sub
--></script> <input
    type="button" name="PLSBtnHello" value="PerlScript"></font>
<script language="PerlScript">
sub PLSBtnHello_onClick
{
	#$MyForm->Text1->{'value'} =  "PerlScript says: Hello, world!";
	$window->document->MyForm->Text1->{'value'} =  "PerlScript says: Hello, world!";
}
sub PLSBtnHello_onclick
{
	PLSBtnHello_onClick
}
</script><font size="5"> </font></p>
</form>
<HR>
<p align="center"><font size="5"></font>&nbsp;</p>
<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0 width=600>
<TR VALIGN=TOP>
	<TD ALIGN=RIGHT>
	<FONT FACE="Arial, Helvetica" SIZE="1">
	<B>Best experienced with<BR> 
	<A HREF="http://www.microsoft.com/ie/" TARGET="_top"><img src="ie_animated.gif" width="88" height="31" border="0" alt="Microsoft Internet Explorer" vspace="5"></a>
	<BR>Click here to start.</B>
	</FONT></TD>
</TR>
</TABLE>
</body>
</html>
